home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
Z-Misc Series
/
(k)zi.d64
/
proc.help
< prev
next >
Wrap
Text File
|
2007-03-01
|
572b
|
26 lines
0010 ╨╥╧├ HELP(SCRNR) ├╠╧╙┼─
0020 ╒╙┼ TEXT
0030 ╒╙┼ SYSTEM
0035
0040 ─╔═ THIS'SCREEN$ ╧╞ 1505
0050 ─╔═ HELP'SCREEN$ ╧╞ 1505
0055
0060 GETSCREEN(THIS'SCREEN$)
0070 RD(SCRNR,HELP'SCREEN$)
0080 SETSCREEN(HELP'SCREEN$)
0090 ╔╬╨╒╘ ┴╘ 24,1: "╘YPE [╥┼╘╒╥╬] ": C$
0100 SETSCREEN(THIS'SCREEN$)
0110 //
0120 ╨╥╧├ RD(SNUM,╥┼╞ SCREEN$)
0125 //
0130 // SEQUENTIAL READ FROM TEXT
0140 // BUFFER
0145 RESET
0150 NR:=0
0160 ╥┼╨┼┴╘
0170 NR:+1
0180 READLN(SCREEN$)
0190 ╒╬╘╔╠ NR=SNUM
0200 ┼╬─╨╥╧├ RD
0210 ┼╬─╨╥╧├ HELP